home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / Boot / safe.em < prev    next >
Encoding:
Text File  |  1993-07-06  |  526 b   |  30 lines
  1. ;; Eulisp Module
  2. ;; Author: pab
  3. ;; File: safe.em
  4. ;; Date: Tue Jul  6 15:27:08 1993
  5. ;;
  6. ;; Project:
  7. ;; Description: 
  8. ;;
  9.  
  10. (defmodule safe
  11.   ((rename ((car xcar)
  12.         (cdr xcdr)
  13.         (vector-ref xvector-ref))
  14.        init)
  15.    (only (vector-ref) vectors))
  16.   ()
  17.   
  18.   (export car cdr vector-ref)
  19.  
  20.   (defun car (x) 
  21.     (if (consp x) (xcar x)
  22.       (error "Car: Not a list" Internal-Error 'error-value x)))
  23.  
  24.   (defun cdr (x) 
  25.     (if (consp x) (xcdr x)
  26.       (error "Cdr: Not a list" Internal-Error 'error-value x)))
  27.  
  28.   ;; end module
  29.   )
  30.